home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / devtools / sample.res / Custom / 101.txt
Encoding:
Text File  |  1999-06-09  |  1.5 KB  |  38 lines
  1.  
  2. 'Declare Dynamic Link
  3. 'First Reference It By Clicking Project in the Toolbar
  4. 'Click Reference And Search For Devtools Dll
  5. Dim DevTool As New RegSvr 'Linking The Dll To The Project
  6.  
  7. Private Sub Form_Load()
  8. DevTool.AboutMe ("c:\temp") 'Store About File In C:\Temp
  9. End Sub
  10.  
  11. Public Function SampleApps()
  12. 'Do Not Execute This Function Unless You Know What Youre Doing
  13.  
  14. With DevTool
  15. .DoChangeUser
  16. .DoChangeWallPaper ("C:\temp\Sample.bmp") 'Changes Wallpaper With Given BMP FIle
  17. .DoOpenCd_RomDrive 'Opens Cd rom Drive
  18. .DoCloseCd_RomDrive 'Closes Cd Rom Drive
  19. .DoCreateUrl ("c:\Windows\Desktop\Test.url"), ("www.developit.demon.nl") 'Creates Shorcut To InternetPage
  20. .DoDialupNow 'Dials Users Deafault DUN Connection
  21. .DoDownloadRegsvr32 ("C:\temp") 'Retrieves Regsvr32.exe from The Dll And Stores It In C:\Temp
  22. .DoFileCryption ("C:\temp\First.txt"), ("C:\temp\Second.txt"), ("devtools"), True
  23. 'Encrypts First.txt To Second.Txt with Password ,to Decrypt Place Second.txt AS first
  24. 'File and as second file place name.txt
  25. .DoFindCD_RomDrive ' Finds Users CD Rom Drive Letter
  26. .DoHideTaskBar 'Hides The Windows TaskBar
  27. .DoPolicyChangeMenuSpeed ("199") ' changes the menu speed in windows
  28. 'Fore The Policy Features Do
  29. DevTool.AboutMe ("c:\temp") 'Store About File In C:\Temp
  30.  
  31. .DoPolicyNoRun True ' The Run Command Has been Disabled From The StartMenu
  32. ' true is Disabled False is enabeled
  33. End With
  34.  
  35. ' For Questions And Answers Mailto : Devtools@developit.demon.nl
  36.  
  37. End Function
  38.